home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
UpTime Volume 1 #3
/
utv1n3s2.d64
/
h-t-h karate
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-28
|
857b
|
23 lines
10 ifpeek(55)+256*peek(56)<>32767thenpoke55,255:poke56,127:clr:poke157,0
20 ifx=0thenpoke53265,11:print"[144][147]":poke53280,0:poke53281,0
30 ifx=0thenx=1:load"up-time logo",8,1
40 ifx=1thenpoke56576,148:poke53272,223:print"[154][147]":goto110
50 ifx=1thenx=2:load"karate chars",8,1
60 ifx=2thenx=3:load"karate guys",8,1
90 print"[144]load"chr$(34)"karate"chr$(34)",8":print"run:"
95 poke198,3:poke631,19:poke632,13:poke 633,13
100 new
110 c$="[154][159][159][153][153][153][153][159][159][154]":poke53281,6:poke53280,6:poke53265,27
120 ld=ld+1:cn=cn+1:ifcn>len(c$)thencn=1
130 printmid$(c$,cn,1)"[147]":getx$:ifx$<>""then160
140 ifld=101then160
150 goto120
160 poke53265,11:poke53281,0:poke53280,0:print"[144][147]"tab(13)"[158] "
170 print"[153] [156] "
180 print"[159] [156] "
190 print"[154] "
200 print" [154] "
210 print"[156] [159] "
220 print"[156] [153] "
230 printtab(14)"[158] ":poke53265,27:goto50